home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / comm / tcp / unrealaudio.lha / unrealaudio.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-05-02  |  580 b   |  17 lines
  1. /* dumb routine to get rid of header */
  2. open('console','con:0/0/640/70/un-realaudio/cds')
  3. parse arg form
  4. open('gsd', form ,'R')
  5. uri = readch('gsd',255)
  6. parse var uri +8 form
  7. call writeln 'console',form
  8. f=right(form,(length(form)-lastpos('/',form)))
  9. g=left(f,(lastpos('.',f)-1))
  10. address command "run >nil: untoast -a -c <fifo:inc"||g||"/r >aud:0x8000"
  11. delay 1
  12. address command "run >nil: <nil: web "||form||" fifo:inc"||g||"/wmKe"
  13. call writeln 'console','Press <return> to break audio'
  14. call readln 'console'
  15. address command "tbreak untoast quiet"
  16. address command "tbreak web quiet"
  17.